'From Pharo1.2.1 of 2 April 2011 [Latest update: #12345] on 19 October 2011 at 2:12:25 pm'!TestCase subclass: #TesteDirecaoNaGrade	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Do-Laser-Testes'!!TesteDirecaoNaGrade methodsFor: 'as yet unclassified' stamp: 'name 10/19/2011 14:12'!testeNaDirecaoGradeCima	| direcaoCima |		direcaoCima := DirecaoNaGrade direcaoNaGradeDadoDirecaoSymbol: #cima.		self should: [ direcaoCima  = DirecaoNaGradeCima ]  .	self should: [ direcaoCima taxaDeslocamento = (0@(-1)) ]  .	self should: [ direcaoCima direcaoEntradaProximaCelula = #baixo ] .! !